home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume4 / tvx / part08 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  44.9 KB
  1. From: talcott!seismo!gatech!unmvax!wampler (Bruce Wampler)
  2. Subject: tvx: 8 of 10
  3. Newsgroups: mod.sources
  4. Approved: jpn@panda.UUCP
  5.  
  6. Mod.sources:  Volume 4, Issue 22
  7. Submitted by: gatech!unmvax!wampler (Bruce Wampler)
  8.  
  9. #--------CUT---------CUT---------CUT---------CUT--------#
  10. #########################################################
  11. #  TVX: File 8 of 10                                    #
  12. #                                                       #
  13. # This is a shell archive file.  To extract files:      #
  14. #                                                       #
  15. #    1)    Make a directory (like tvx) for the files.      #
  16. #    2) Write a file, such as "filen.shar", containing  #
  17. #       this archive file into the directory.           #
  18. #    3) Type "sh file.shar".  Do not use csh.           #
  19. #                                                       #
  20. #########################################################
  21. #
  22. #
  23. echo Extracting tvx_lex.c:
  24. sed 's/^X//' >tvx_lex.c <<\SHAR_EOF
  25. X/* -------------------------- tvx_lex.c --------------------------- */
  26. X#include "tvx_defs.ic"
  27. X
  28. X/* -------------------------- GLOBALS GO HERE -------------------------------*/
  29. X#define EXTERN
  30. X
  31. X#include "tvx_glbl.ic"
  32. X
  33. X   char clower(),cupper();
  34. X
  35. X/* =============================>>> CHECKOS <<<============================= */
  36. X  checkos()
  37. X  {
  38. X    /* check if ok operating system */
  39. X#ifdef MSDOS
  40. X    if ((bdos(0x30,0) & 0xff) < 2)        /* !!! cii-86 dependent */
  41. X      {
  42. X    remark("TVX requires MS-DOS 2.0 or later");
  43. X    exit();
  44. X      }
  45. X#endif
  46. X  }
  47. X
  48. X/* =============================>>> STARTM <<<============================= */
  49. X  startm()
  50. X  {
  51. X    prompt(START_IDM);
  52. X    prompt(VERSION); prompt("Terminal: ");
  53. X    remark(cversn);
  54. X    remark("");
  55. X    starthelp();
  56. X  }
  57. X
  58. X/* =============================>>> STARTHELP <<<============================= */
  59. X  starthelp()        /* print start help message */
  60. X  {
  61. X    remark(START_HELPM); remark("");
  62. X  }
  63. X
  64. X
  65. X/* =============================>>> MEMORY <<<============================= */
  66. X  memory()
  67. X  { /* memory - print memory left */
  68. X 
  69. X    SLOW int nxt;
  70. X    SLOW unsigned int tmp;
  71. X
  72. X    char value[10],msg[85],*cp;
  73. X 
  74. X    if (bakflg)
  75. X    return;            /* don't do this during logfile input */
  76. X
  77. X    nxt=0;            /* where message goes */
  78. X    cp = (*dest_file ? dest_file : orig_file);
  79. X    strcopy(cp,max(strlen(cp)-36,0),msg,&nxt);    /* the file name */
  80. X    if (nxt <= 14)
  81. X     {
  82. X       strcopy(VERSION,0,msg,&nxt); /* TVX */
  83. X       strcopy(cversn,0,msg,&nxt);  /* terminal type */
  84. X     }
  85. X 
  86. X    strcopy(" Free chars:",0,msg,&nxt);    /* add ' Free chars: ' */
  87. X
  88. X#ifdef LASL
  89. X    tmp = max(nxtsav - nxtchr - BUFFLIMIT,0);
  90. X#else
  91. X    tmp = nxtsav - nxtchr;
  92. X#endif
  93. X
  94. X#ifdef INT16
  95. X    if (tmp > 30000)        /* handle "neg" size */
  96. X      {
  97. X    msg[nxt++] = '+';
  98. X    tmp -= 30000;
  99. X      }
  100. X#endif
  101. X    itoa(tmp,value);
  102. X    strcopy(value,0,msg,&nxt);    /* the value */
  103. X 
  104. X    strcopy(" Line:",0,msg,&nxt);    /* add ' Line: ' */
  105. X    itoa(curlin,value);
  106. X    strcopy(value,0,msg,&nxt);
  107. X    strcopy(" of ",0,msg,&nxt);
  108. X    itoa(nxtlin-1,value);
  109. X    strcopy(value,0,msg,&nxt);    /* add the count */
  110. X 
  111. X 
  112. X    tverr(msg);     /* display line on screen */
  113. X }
  114. X 
  115. X/* =============================>>> SHOSET  <<<============================= */
  116. X  shoset()
  117. X  {  /* show repeat buffer, help if available */
  118. X
  119. X#ifdef HELP
  120. X    static char rp[2];
  121. X    FAST int i;
  122. X    SLOW char *cp, *msg;
  123. X    SLOW int fields, oldtty, hnum;
  124. X    SLOW unsigned tmp;
  125. X
  126. X#ifdef TVX_CMDSET
  127. X#ifdef FULLHELP
  128. X    struct help_msg 
  129. X      {
  130. X    char *hmsg;
  131. X    char Vmsg;
  132. X      };
  133. X
  134. X    static struct help_msg cmddes[] =    /* messages for help */
  135. X      {
  136. X    {"nApnd to sv buff", VSAPPEND},    {" Buffer beg     ",    VTOP},
  137. X    {" File beg",         VFBEGIN},    {"nChange chars   ",    VCHANGE},
  138. X    {"nDown line      ", VDOWNLINE},{"nDown column",    VDOWNCOL},
  139. X    {" Buffer end     ", VBOTTOM},    {"nEdit rpt buffer",    VEDITRPT},
  140. X    {"nFind",            VSEARCH},    {" Find cross-buff",    VNEXT},
  141. X    {" Get save buffer", VGET},    {" Unkill lastline",    VUNKILL},
  142. X    {"nHalf page      ", VHALFP},    {"nInsert (to ESC)",    VINSERT},
  143. X    {" Jump back",         VJUMP},    {"nKill character ",    VDELNEXT},
  144. X    {"nKill line      ", VKILLALL},    {"nLeft",        VLEFT},
  145. X    {" Memory status  ", VMEMORY},    {"nNote location  ",    VNOTELOC},
  146. X    {"nReset loc",         VRETNOTE},    {"nOpen line      ",    VOPENLINE},
  147. X    {" Call Opr system", VSYSTEM},    {"nPage",        VFLIP},
  148. X    {" Print screen   ", VPRINTS},    {"nRight          ",    VRIGHT},
  149. X    {" Restore rpt buf", VSTORERPT},{"nSave lines     ",    VSAVE},
  150. X    {"nTidy, fill text", VTIDY},    {" Abort",        VABORT},
  151. X    {"nUp             ", VUPLINE},    {"nUp column      ",    VUPCOL},
  152. X    {" Verify screen",   VVERIFY},    {"nWrite buffer   ",    VWPAGE},
  153. X    {" Exit, end edit ", VQUIT},    {"nYank file",        VYANK},
  154. X    {"nDel prev char  ", VDELLAST},    {"nFind again     ",    VSAGAIN},
  155. X    {" Del last",         VREMOVE},    {" Change last    ",    VRMVINS},
  156. X    {" Del to line beg", VKILLPREV},{" Del to line end",    VKILLREST},
  157. X    {" Line begining  ", VBEGLINE},    {" Line end       ",    VENDLINE},
  158. X    {"nWord right",         VMVWORD},    {"nWord left      ",    VMVBWORD},
  159. X    {"nRepeat again   ", VXREPEAT},    {"nk Exec rpt k n times",VEXECRPT},
  160. X    {"n p Set param p ", VSETPARS},    {" Help           ",    VHELP},
  161. X    {" Insert find pat", VINSPAT},    {"nToggle case    ",    VFOLDCASE},
  162. X    {"/",0}            /* last variable entry */
  163. X      };
  164. X#endif
  165. X#endif
  166. X
  167. X    if (bakflg)
  168. X    return;            /* don't do this during logfile input */
  169. X
  170. X    oldtty = ttymode;
  171. X    ttymode = FALSE;
  172. X    if (!oldtty)
  173. X    tvclr();
  174. X
  175. X    prompt("Parameter : cur val (1=y, 0=n)    Prev 16 cmds:");
  176. X    for (hnum = 0,i = old_cindex ; hnum < 16 ; ++hnum)
  177. X      {
  178. X    shocout(old_cmds[i]);
  179. X    i = ++i % 16;
  180. X      }
  181. X
  182. X    remark("");
  183. X    prompt("A-Autoindent: "); wtint(autoin);
  184. X    prompt("  C-Cut mode: "); wtint(cut_mode);
  185. X    prompt("  E-Expand tabs: "); wtint(tabspc);
  186. X    prompt("  T-TTY mode: "); wtint(ttymode); remark("");
  187. X
  188. X    prompt("F-Find: ignore case: "); 
  189. X    if (xcases)
  190. X        tvcout('0');
  191. X    else
  192. X        tvcout('1');
  193. X
  194. X    prompt("    M-Match wild cards: "); wtint(use_wild); remark("");
  195. X    prompt("U-User wild card set: |");
  196. X    for (cp = user_set ; *cp ; ++cp)
  197. X      {
  198. X    shocout(*cp);
  199. X      }
  200. X    remark("|");
  201. X
  202. X    prompt("D disp line:"); wtint(dsplin); 
  203. X    prompt("  S-Scroll window:"); wtint(scroll);
  204. X    prompt("  V-Virtual window:"); wtint(tvlins); 
  205. X    prompt("/"); wtint(tvhardlines);
  206. X    prompt("  W-Wrap width:"); wtint(wraplm); remark("");
  207. X    prompt("O-Output file: "); prompt(dest_file);
  208. X    prompt("  (input file is: ");prompt(orig_file); remark(")");
  209. X    remark("");
  210. X
  211. X    prompt("Find: |");
  212. X    for (cp = sbuff ; *cp ; ++cp)
  213. X      {
  214. X    shocout(*cp);
  215. X      }
  216. X    remark("|");
  217. X    remark("");
  218. X    prompt("Max chars: ");
  219. X    tmp = mxbuff;
  220. X#ifdef INT16
  221. X    if (tmp > 30000)        /* handle "neg" size */
  222. X      {
  223. X    prompt("30000+");
  224. X    tmp -= 30000;
  225. X      }
  226. X#endif
  227. X    wtint(tmp); prompt("  Max lines: ");    wtint(mxline);
  228. X    prompt("  Cur line: "); wtint(curlin);
  229. X    if (usecz)
  230. X    prompt("    ^Z for EOF");
  231. X    remark("");
  232. X    remark("");
  233. X
  234. X    prompt("R-Repeat buffer: ");wtint(rptuse+1);
  235. X    remark("   All repeat buffers : <contents>:");
  236. X    for (i = 0 ; i < REPEATBUFS ; ++ i)
  237. X      {
  238. X    fields = 5;
  239. X    shocout('#') ; shocout(i+'1') ; prompt(": <");
  240. X    for (cp = &rptbuf[i][0] ; *cp ; ++cp)
  241. X      {
  242. X        shocout(*cp);
  243. X        ++fields;        /* how many letters */
  244. X        if (*cp < ' ')
  245. X        ++fields;
  246. X        if (fields >= (tvcols - 6))
  247. X          {
  248. X        prompt("+more+");
  249. X        break;
  250. X          }
  251. X      }
  252. X    remark(">");
  253. X      }
  254. X
  255. X    ttymode = oldtty;
  256. X    memory();
  257. X
  258. X#ifdef FULLHELP
  259. X    tvxy(1,22);
  260. X
  261. X    ask("Press space to exit, anything else for command list ",rp,1);
  262. X
  263. X    if (*rp == ' ')
  264. X      {
  265. X    ttymode = oldtty;
  266. X    verify(1);
  267. X    return;
  268. X      }
  269. X
  270. X    if (!oldtty)
  271. X    tvclr();
  272. X
  273. X/* ------------------------------ TVX ----------------------------------- */
  274. X#ifdef TVX_EM
  275. X    remark("Commands (n => count allowed):");
  276. X#endif
  277. X#ifdef TVX0M_EM
  278. X    remark("Commands (n => count allowed) (Non ^ cmds prefixed by ESC):");
  279. X#endif
  280. X
  281. X#ifdef TVX_CMDSET
  282. X    for (hnum = fields = 0  ; ; ++hnum )
  283. X      {
  284. X    prompt("   ");
  285. X    cp = cmddes[hnum].hmsg;
  286. X    if (*cp == '/')    /* end of variable list */
  287. X        break;
  288. X    else
  289. X        shocout(*cp);    /* show n or blank */
  290. X    msg = ++cp;        /* where message is, skipping 'n' field */
  291. X    while (*cp)        /* ship to lex value */
  292. X        ++cp;
  293. X    i = cmddes[hnum].Vmsg;        /* get the lexical index */
  294. X    shocout(cupper(lexsym[i]));    /* show the command */
  295. X    if (lexsym[i] >= ' ')
  296. X        shocout(' ');    /* skip space for no '^' */
  297. X
  298. X    shocout(' ');        /* space to separate */
  299. X    prompt(msg);        /* and show the message */
  300. X    if (++fields == 3)    /* bump fields, see if need newline */
  301. X      {
  302. X        fields = 0;
  303. X        remark("");
  304. X      }
  305. X      }
  306. X    if (fields != 0)
  307. X    remark("");
  308. X#endif        
  309. X#ifdef TVX_EM
  310. X    remark("   n<>$$:Rpt loop        @:Invoke cmd file      $:Escape");
  311. X#endif
  312. X#ifdef TVX0M_EM
  313. X    remark("  $n<>$$:Rpt loop       $@:Invoke cmd file      $:Escape");
  314. X#endif
  315. X
  316. X/* ------------------------------ VI ----------------------------------- */
  317. X#ifdef VI_EM
  318. X    remark("Commands (n => count allowed):");
  319. Xremark("");
  320. Xremark("n^B:scrn up     n^D:half scrn   n^F:scrn dwn    ^G:status     ^L:refresh");
  321. Xremark("n^U:up half scr n!:tidy         n#p:ex rpt p n   $:line end    *:ins last pat");
  322. Xremark("/:search         =:help           ?:rev search  @:exec rpt lp");
  323. Xremark("A:apnd ln end   C:chng rest ln  D:del rest line  nG:Goto ln n  H:buff beg");
  324. Xremark("I:ins ln beg    J:join lines    nK:up: line beg  L:buff end    nM:ret to mark");
  325. Xremark("N:rev find nxt  nO:open above   P:put sv buf abv");
  326. Xremark("q:'tvx' prefix: q!:op system    qb:file begin    qu:limited undo"); 
  327. Xremark("nq:p:set par p nqe:ed rpt buf   qj:jump back     qp:put file   qy: yank file");
  328. Xremark("                qs:print scr    nqw:write buf   nqr:restore rpt q/:x-buff find");
  329. Xremark("nX:del prev ch  nY:apnd sv buf  Z:[Z:exit,A:abort]             ^:line begin");
  330. Xremark("a:append        nb:word left    c:chng [c,<sp>,^,$,/]      nd:del [d,<sp>,^,$,/]");
  331. Xremark("ni:insert       nh:left         nj:down in col   nk:up line in col");
  332. Xremark("nl:right        nm:mark loc     n:find next pat  no:open after");
  333. Xremark("p:put sv buf after              r:replace 1 chr  ns:substitute");
  334. Xremark("nw:word right   nx:delete chr   ny:yank to save buffer          n~:change case");
  335. X    remark("");
  336. Xremark("n<>$$:Rpt loop  _:Invoke cmd file   $:Escape");
  337. X    remark("'c/' and 'd/' are used to change/delete last thing found");
  338. X#endif
  339. X
  340. X/* ------------------------------ EMAX ----------------------------------- */
  341. X#ifdef EMAX_EM
  342. Xremark("(n means count allowed: counts entered after <esc> or <ctrl-u>)");
  343. Xremark("");
  344. Xremark("^A:line beg    n^B:back chrs                 n^C:extended tvx commands:");
  345. Xremark("");
  346. Xremark("[n^A:apnd sv   ^B: file beg   n^C:chng chrs  n^E:Ed rpt bf   n^F:fill        ]");
  347. Xremark("[ ^G:no op    n^H:half scrn    ^J:jmp back    ^K:kill 'last'  n^N:next ln    ]");
  348. Xremark("[n^M:mark loc n^P:Prev ln      ^R:Restore rbf ^W:write buff    ;:search again]");
  349. Xremark("[n~:chng case  nG:Goto line    nH:Half pg up  nI:ins val n     L: Print scrn ]");
  350. Xremark("[nM:rtn 2 mrk  nP:Put sv bf     S:x buff find  U:unkill 1 ln nVp:set val(par)]");
  351. Xremark("[ R:Read file into sv buff      W:write sv buff to file   *:insert found pat ]");
  352. Xremark("");
  353. Xremark("n^D:del chr    ^E:line end    n^F:fwrd chr   n^H:del prev ch  n^K:kill line");
  354. Xremark(" ^L:repaint   n^N:next ln     n^O:open ln    n^P:prev ln       ^R:rev search");
  355. Xremark(" ^S:search     ^U:specify n  n^V:page dwn   ^X^C:abort edit");
  356. Xremark("^X^B:status  n^XE:ex. rpt bf  ^Y:yank sv bf   ^Z:write, exit");
  357. Xremark(" $%:cmd file   $!:op. sys.   n$#p:ex rpt p   n$(:rpt loop      $<:buff begin");
  358. Xremark(" $>:buff end   $?:help        n$B:back word  n$F:fwd word     n$V:page up");
  359. Xremark("");
  360. Xremark("$ = <esc>,  ')$$' ends repeat loops");
  361. X#endif
  362. X
  363. X
  364. X#ifdef GEMDOS
  365. X    remark("Find wild cards:  {TVX command '(' toggles 25/50 line display}");
  366. X#else
  367. X    remark("Find wild cards:");
  368. X#endif
  369. Xremark("^A-alphanumeric  ^D-digit  ^L-letter  ^O-other,(not-^A)  ^P-punctuation");
  370. Xremark("^X-any character ^U-user set  -- ^W-word of ^..  ^N-not in word of ^..");
  371. X
  372. X#endif
  373. X
  374. X    if (!oldtty)
  375. X    tvxy(1,24);
  376. X    ask("Press any key to resume ",rp,1);
  377. X
  378. X    ttymode = oldtty;
  379. X
  380. X    verify(1);
  381. X#else                /* HELP not defined */
  382. X    tverr(&rptbuf[rptuse][0]);
  383. X#endif
  384. X  }
  385. X
  386. X/* =============================>>> SHOCOUT <<<============================= */
  387. X  shocout(c)
  388. X  char c;
  389. X  {
  390. X
  391. X    if (c < ' ')
  392. X      {
  393. X    ttwt('^'); ttwt(c + '@');
  394. X      }
  395. X    else
  396. X    ttwt(c);
  397. X  }
  398. X
  399. X/* =============================>>> LEXGET <<<============================= */
  400. X  lexget(chr)
  401. X  char *chr;
  402. X  {  /* lexget - get a character for lex, possibly from repeat buffer */
  403. X
  404. X    SLOW char tmp;
  405. Xl10:
  406. X    if (rptcnt[rptuse] > 0)    /* in a repeat buffer? */
  407. X      {
  408. X    *chr=rptbuf[rptuse][nxtrpt[rptuse]];    /* pick up from repeat buffer */
  409. X    if (*chr == 0)     /* at end of rpt buff */
  410. X      {
  411. X        nxtrpt[rptuse] = 0;    /* start <> loop over */
  412. X        if (--rptcnt[rptuse] == 0 && !echof)    /* all done with loop */
  413. X          {
  414. X        echof = TRUE;    /* turn on echo again */
  415. X        newscr();    /* update screen after repeat */
  416. X          }
  417. X        goto l10;        /* loop again */
  418. X      }
  419. X    ++nxtrpt[rptuse];    /* bump to next char in loop */
  420. X      }
  421. X    else            /* not in loop, get from keyboard */
  422. X      {
  423. X    gkbd(&tmp);    /* picks up one character from the keyboard */
  424. X    *chr = old_cmds[old_cindex] = tmp;
  425. X    old_cindex = ++old_cindex % 16;
  426. X      }
  427. X  }
  428. X
  429. X/* =============================>>> LEX    <<<============================= */
  430. X  lex(lexval,lexcnt,lexchr,parsok)
  431. X  int *lexval,*lexcnt,parsok;
  432. X  char *lexchr;
  433. X  { /* ##  lex - gets command input from terminal, and scans for
  434. X       #  its lexical value.  Returns a count if given.  Also handles
  435. X       #  repeat loops. */
  436. X 
  437. X    SLOW int count, lex_default;
  438. X    FAST int i;
  439. X    SLOW int neg, newln;
  440. X
  441. X    static char chr,cmdchr,tchr;
  442. X#ifdef EMAX_EM
  443. X    SLOW char had_cu;
  444. X#endif
  445. X
  446. X    lex_default = TRUE;
  447. X
  448. X    if (!parsok)        /* abort if error in <> */
  449. X      {
  450. X    if (rptcnt[rptuse] > 0)    /* in loop? */
  451. X      {
  452. X        newscr();    /* clear screen, send message */
  453. X        tverrb("<> not complete ");
  454. X      }
  455. X    rptcnt[rptuse]=0;    /* abort loop if going */
  456. X    nxtrpt[rptuse]=0;
  457. X      }
  458. Xl10:
  459. X    for (;;) 
  460. X      {             /* need this loop to support <> */
  461. X    count = 1;        /* default count is 1 */
  462. X    lexget(&chr);        /* fetch a character */
  463. X#ifdef EMAX_EM
  464. X    had_cu = FALSE;        /* not ^U initially */
  465. XCU_COUNT:
  466. X    if (chr == 21)        /* ctrl-u count detect */
  467. X      {
  468. X        if (had_cu)
  469. X        fixend();
  470. X        count *= 4;        /* assume 4 by default */
  471. X        tvmsg("Arg: ",FALSE); /* echo Arg: 4' */
  472. X        wtint(count);
  473. X        had_cu = TRUE;    /* remember we had control-u */
  474. X        lex_default = FALSE; /* and not the default */
  475. X        lexget(&chr);
  476. X      }
  477. X#endif
  478. X#ifdef NOMODE_LEX
  479. X    if ( ((chr & 0177) >= ' ' || chr == TAB || chr == CR)
  480. X      && (chr & 0200) == 0)
  481. X      {
  482. X#ifdef EMAX_EM
  483. X        if (had_cu)
  484. X          {
  485. X        had_cu = FALSE;
  486. X        fixend();
  487. X        if ((chr >= '0' && chr <= '9') || chr == '-')
  488. X            goto EMAX_CNT;
  489. X          }
  490. X        for (i = 0 ; i < count ; ++i)    /* ^U times */
  491. X#endif
  492. X        ins_chr((int) chr);    /* simply insert the character */
  493. X        continue;        /* get next character */
  494. X      }
  495. X    if (chr == escape_chr)    /* if an escape, simply get next char */
  496. X        lexget(&chr);
  497. X#endif
  498. X
  499. X    if (rptcnt[rptuse]>0 && chr == loop_beg)    /* detect nesting */
  500. X      {
  501. X        nxtrpt[rptuse] = 0 ; rptcnt[rptuse] = 0 ; echof=TRUE;
  502. X        newscr();    /* update anything so far */
  503. X        tverrb("No loop nesting ");
  504. X        continue;
  505. X      }
  506. X 
  507. X#ifdef EMAX_EM
  508. XEMAX_CNT:
  509. X#endif
  510. X    if ((chr>='0' && chr<='9') || chr=='-')    /* a number */
  511. X      {
  512. X        count = 0;  lex_default = FALSE;
  513. X        neg = FALSE;    /* handle negative counts */
  514. X        if (chr=='-')
  515. X        neg=TRUE;
  516. X        else 
  517. X        count = chr-'0';    /* convert to int value */
  518. X        for (;;) 
  519. X          {
  520. X        if (rptcnt[rptuse] > 0)    /* have to handle rptbuf special */
  521. X          {
  522. X            if ((chr=rptbuf[rptuse][nxtrpt[rptuse]]) == 0)
  523. X            break;
  524. X            ++nxtrpt[rptuse];
  525. X          }
  526. X        else 
  527. X            lexget(&chr);
  528. X        if (chr>='0' && chr<='9')    /* another number? */
  529. X            count = count*10+chr-'0';
  530. X        else            /* done with number */
  531. X            break;
  532. X          }
  533. X        if (neg)            /* fix if it was negative */
  534. X        count = min(-count ,-1);
  535. X      }    /* end count arg if */
  536. X
  537. X#ifdef EMAX_EM
  538. X    if (chr == 21)        /* another ^U? */
  539. X        goto CU_COUNT;
  540. X    if (had_cu)
  541. X        fixend();    /* count changes */
  542. X#endif
  543. X
  544. X#ifdef VI_EM
  545. X    cmdchr = chr;        /* vi emulator is case sensitive */
  546. X#else
  547. X    cmdchr = clower(chr);    /* fold to one case */
  548. X#endif
  549. X    if (cmdchr == loop_beg)    /* starting a loop? */
  550. X      {
  551. X        lex_default = TRUE;            /* don't let lex count be def */
  552. X        rptcnt[rptuse] = (count < 0) ? (-count) : count;    /* save count */
  553. X        ins_mode = TRUE;            /* so ttymode works */
  554. X        tvmsg("repeat[",FALSE);        /* echo 'repeat[k]: n<' */
  555. X        wtint(rptuse+1); prompt("]: ");
  556. X        wtint(rptcnt[rptuse]);
  557. X
  558. X        tvcout(loop_beg);
  559. X#ifdef SCR_BUF
  560. X        ttflush();
  561. X#endif
  562. X        nxtrpt[rptuse]=0;    /* begin inserting at beginning */
  563. X        newln = FALSE;    /* no new line echo yet */
  564. X        do            /* fetch repeat chars until get > */
  565. X          {
  566. X        gkbd(&chr);    /* fetch a char */
  567. X        if (chr==delkey)    /* allow editing */
  568. X          {
  569. X            if (nxtrpt[rptuse] > 0)    /* don't go past start */
  570. X              {
  571. X            --nxtrpt[rptuse];    /* wipe out last */
  572. X            if ((tchr = rptbuf[rptuse][nxtrpt[rptuse]])==CR)
  573. X              {
  574. X                ctrlch(CR);    /* going to newline */
  575. X                newln = TRUE;        /* new line now */
  576. X              }
  577. X            else if (!newln)
  578. X              {
  579. X                tvcout(BACKSPACE);    /* back over character */
  580. X                tvcout(' ');
  581. X                tvcout(BACKSPACE);
  582. X                if (tchr < ' ' && tchr != 27)
  583. X                  {
  584. X                tvcout(BACKSPACE);    /* back over char */
  585. X                tvcout(' ');
  586. X                tvcout(BACKSPACE);
  587. X                  }
  588. X              }
  589. X            else        /* have passed new line start */
  590. X              {
  591. X                ctrlch(rptbuf[rptuse][nxtrpt[rptuse]]);
  592. X                tvcout('\\');
  593. X              }
  594. X              }
  595. X            else
  596. X            tvcout(BELL);    /* trying to rubout too much */
  597. X#ifdef SCR_BUF
  598. X            ttflush();
  599. X#endif
  600. X            continue;
  601. X          }
  602. X        else        /* a control character detected */
  603. X            ctrlch(chr);    /* echo */
  604. X#ifdef SCR_BUF
  605. X        ttflush();
  606. X#endif
  607. X 
  608. X        rptbuf[rptuse][nxtrpt[rptuse]]=chr;    /* stuff in current rpt buff. */
  609. X        ++nxtrpt[rptuse];    /* bump count */
  610. X        if (nxtrpt[rptuse] >= 100)    /* only allow 100 chars! */
  611. X          {
  612. X            newscr();
  613. X            tverrb("100 chars only");
  614. X            nxtrpt[rptuse]=0 ; rptcnt[rptuse]=0;
  615. X            ins_mode = FALSE;
  616. X            goto l10;    /* bail out */
  617. X          }
  618. X          }
  619. X        while (!( chr==ESC && rptbuf[rptuse][nxtrpt[rptuse]-2]==ESC &&
  620. X          rptbuf[rptuse][nxtrpt[rptuse]-3]==loop_end));    /* end do loop */
  621. X
  622. X        ins_mode = FALSE;        /* get ttymode right */
  623. X
  624. X        if (rptcnt[rptuse] > 1)    /* positive count? */
  625. X        echof = FALSE;    /* turn off echoing */
  626. X        else if (newln)
  627. X        verify();    /* need to fix up screen because of newline */
  628. X        else        /* 0 or 1 count */
  629. X          {
  630. X        fixend();
  631. X        tvhdln();    /* get back where we were */
  632. X          }
  633. X
  634. X        rptbuf[rptuse][nxtrpt[rptuse]-3] = 0;    /* mark with eos */
  635. X        nxtrpt[rptuse]=0;    /* back for scan now */
  636. X        continue;        /* now execute the loop */
  637. X      }
  638. X#ifdef VB
  639. X    else if (cmdchr == lexsym[0])    /*$$$    indirect files! */
  640. X      {
  641. X        opnatf();
  642. X        continue;
  643. X      }
  644. X#endif
  645. X    for (i=0 ; synofr[i]!=0 ; ++i)
  646. X      if (synofr[i]==cmdchr)
  647. X         cmdchr=synoto[i];        /* allow synonyms */
  648. X 
  649. X    *lexval = UNKNOWN;    /* assume unknown command */
  650. X    for (i = 1 ; i<= LEXVALUES ; ++i)    /* scan all possible cmds */
  651. X        if (cmdchr == lexsym[i])    /* found it */
  652. X          {
  653. X        *lexval = i;
  654. X        break;
  655. X          }
  656. X    *lexcnt = count;        /* return good stuff */
  657. X    *lexchr = chr;
  658. X    return (lex_default);        /* let know if gave back default */
  659. X      }                    /* end of for(;;) */
  660. X  }
  661. X/* -------------------------- tvx_lex.c --------------------------- */
  662. SHAR_EOF
  663. echo Extracting tvx_cfg.c:
  664. sed 's/^X//' >tvx_cfg.c <<\SHAR_EOF
  665. X
  666. X/* -------------------------- tvx_cfg.c --------------------------- */
  667. X#include "tvx_defs.ic"
  668. X
  669. X#define BL remark("")
  670. X
  671. X    char synofr[20] =    /* from table */
  672. X      {' ',13,']',000,000,000,000,000,000,000,00,00,00,00,00,00,00,00,00,00};
  673. X    char synoto[20] =        /* translate to table */
  674. X      {'r','d','{',00,000,0,000,00,00,000,00,00,00,00,00,00,00,00,00,00};
  675. X    char funkey = 0;        /* leading char for function key */
  676. X    char funchar[50] =    /* code sent by function key */
  677. X      {
  678. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  679. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  680. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  681. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  682. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  683. X      };
  684. X    char funcmd[50] =    /* equivalent command */
  685. X      {
  686. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  687. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  688. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  689. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  690. X    000, 000, 000, 000, 000, 000, 000, 000, 000, 000,
  691. X      };
  692. X
  693. X/* define standard command set */
  694. X
  695. X    char lexsym[LEXVALUES+1] = { E0, 'r', 'l', 'd', 'u',
  696. X      4, 21, 8, 'k', 'i', 11, '"', '\'', ',', '.', 'f', 6, 'p',
  697. X      'b', 'e', 2, 'v', 'o', '/', 's', 'g', 23, 25, 24, ';', '&',
  698. X      'm', ':', '=', 7, 9, '{', 'a', 16, '?', 'h', 20, 'c', 'j', 't',
  699. X      'n', 14, 15, 5, 18, '#', '*', '(', ')','~' };
  700. X
  701. X
  702. X    char autoin, dsplin, scroll, xcases, warplm, wildch, funesc, cut_mode;
  703. X    char rp[80];
  704. X
  705. X    FILE *f, *fopen();
  706. X    char cupper(), clower();
  707. X
  708. X  main()
  709. X  {
  710. X
  711. X    SLOW int i, val, retcode;
  712. X
  713. X    cls();
  714. X    remark("Standard TVX define a configuration file -- Version 2/27/86");
  715. X    BL;
  716. X    for (;;)
  717. X      {
  718. X    prompt("Enter name of file to save configuration in: ");
  719. X    reply(rp,79);
  720. X    if ((f = fopen(rp,FILEWRITE)) == 0)
  721. X        continue;
  722. X    else
  723. X        break;
  724. X      }
  725. X
  726. X
  727. X    cls();
  728. X    shoset();
  729. X    BL;
  730. X    for (;;)
  731. X      {
  732. X    BL;
  733. X    prompt("Use standard command definitions? (y/n) ");
  734. X    lreply(rp,10);
  735. X    if (*rp == 'y')
  736. X      {
  737. X        goto LEXDONE;
  738. X      }
  739. X    else if (*rp == 'n')
  740. X        break;
  741. X      }
  742. X
  743. XCMDAGAIN:
  744. X    retcode = 1;        /* start with things ok */
  745. X    for (;;)
  746. X      {
  747. X    short_cls();
  748. X    shoset();
  749. X    if (retcode < 0)
  750. X        remark("Invalid value supplied for new command.  Try again!");
  751. X    if ((retcode = set()) == 0)
  752. X        break;
  753. X      }
  754. X    short_cls();
  755. X    shoset();
  756. X    remark("");
  757. X    prompt("Are you finished setting commands? (y/n) ");
  758. X    ureply(rp,2);
  759. X    if (*rp != 'Y')
  760. X    goto CMDAGAIN;
  761. X    
  762. X
  763. X    
  764. X
  765. XLEXDONE:
  766. X    for (i=0 ; i <= LEXVALUES ; ++i)    /* write out lex symbols */
  767. X      {
  768. X    fputc(lexsym[i],f);        /* write to file */
  769. X      }
  770. X    syno();
  771. X    funkeys();
  772. X
  773. X    cls();
  774. X    prompt("Use autoindent (n default) (y/n): ");
  775. X    lreply(rp,10);
  776. X    if (*rp == 'y')
  777. X    fputc(1,f);
  778. X    else 
  779. X    fputc(0,f);
  780. X
  781. X    BL;
  782. X    prompt("Home display line: (1-66, 16 default): ");
  783. X    rdint(&val);
  784. X    if (val > 66 || val <= 0)
  785. X    fputc(16,f);
  786. X    else
  787. X        fputc(val,f);
  788. X
  789. X    BL;
  790. X    prompt("Scroll window (0 default): ");
  791. X    rdint(&val);
  792. X    if (val > 24)
  793. X    val = 0;
  794. X    fputc(val,f);
  795. X
  796. X    BL;
  797. X    prompt("Find case (e=exact,a=any, any default): "); 
  798. X    lreply(rp,10);
  799. X    if (*rp == 'e')
  800. X        fputc(1,f);
  801. X    else
  802. X        fputc(0,f);
  803. X
  804. X    BL;
  805. X
  806. X    prompt("Auto line wrap width (0 default): ");
  807. X    rdint(&val);
  808. X    if (val > 79)
  809. X    val = 0;
  810. X    fputc(val,f);
  811. X
  812. X    BL;
  813. X    prompt("Use wild cards (y default) (y/n)? ");
  814. X    lreply(rp,10);
  815. X    if (*rp == 'n')
  816. X    fputc(0,f);
  817. X    else 
  818. X    fputc(1,f);
  819. X
  820. X    BL;
  821. X    prompt("Use BACKUP.LOG file (n default) (y/n)? ");
  822. X    lreply(rp,10);
  823. X    if (*rp == 'y')
  824. X        fputc(1,f);
  825. X    else
  826. X        fputc(0,f);
  827. X    
  828. X    BL;
  829. Xprompt("Use 'cut mode' (killed lines to save buffer too)? (n default) (y/n)? ");
  830. X    lreply(rp,10);
  831. X    if (*rp == 'y')
  832. X        fputc(1,f);
  833. X    else
  834. X        fputc(0,f);
  835. X
  836. X#ifdef MSDOS
  837. X    BL;
  838. X    remark("The editor can recognize Ctrl-z as EOF, or it can ignore ^Z and");
  839. X    remark("just use the standard MS-DOS end of file mark.");
  840. X    prompt("Should the editor recognize Ctrl-Z as EOF? (n default) (y/n) ");
  841. X    lreply(rp,10);
  842. X    if (*rp == 'y')
  843. X        fputc(1,f);
  844. X    else
  845. X        fputc(0,f);
  846. X#endif
  847. X#ifdef GEMDOS
  848. X    fputc(1,f);        /* use ^Z on gemdos by default */
  849. X#endif
  850. X
  851. X    cls();
  852. X    remark("Configuration file created.");
  853. X    fclose(f);
  854. X  }
  855. X
  856. X/* =============================>>> SHOSET  <<<============================= */
  857. X  shoset()
  858. X  {  /* show repeat buffer, help if available */
  859. X
  860. X    static char rp[2];
  861. X    FAST int i;
  862. X    SLOW char *cp, *msg;
  863. X    SLOW int fields, oldtty, hnum;
  864. X    SLOW unsigned tmp;
  865. X
  866. X    struct help_msg 
  867. X      {
  868. X    char *hmsg;
  869. X    char Vmsg;
  870. X      };
  871. X
  872. X    static struct help_msg cmddes[] =    /* messages for help */
  873. X      {
  874. X    {"nApnd to sv buff", VSAPPEND},    {" Buffer beg     ",    VTOP},
  875. X    {" File beg",         VFBEGIN},    {"nChange chars   ",    VCHANGE},
  876. X    {"nDown line      ", VDOWNLINE},{"nDown column",    VDOWNCOL},
  877. X    {" Buffer end     ", VBOTTOM},    {"nEdit rpt buffer",    VEDITRPT},
  878. X    {"nFind",            VSEARCH},    {" Find cross-buff",    VNEXT},
  879. X    {" Get save buffer", VGET},    {" Unkill lastline",    VUNKILL},
  880. X    {"nHalf page      ", VHALFP},    {"nInsert (to ESC)",    VINSERT},
  881. X    {" Jump back",         VJUMP},    {"nKill character ",    VDELNEXT},
  882. X    {"nKill line      ", VKILLALL},    {"nLeft",        VLEFT},
  883. X    {" Memory status  ", VMEMORY},    {"nNote location  ",    VNOTELOC},
  884. X    {"nReset loc",         VRETNOTE},    {"nOpen line      ",    VOPENLINE},
  885. X    {" Call Opr system", VSYSTEM},    {"nPage",        VFLIP},
  886. X    {" Print screen   ", VPRINTS},    {"nRight          ",    VRIGHT},
  887. X    {" Restore rpt buf", VSTORERPT},{"nSave lines     ",    VSAVE},
  888. X    {"nTidy, fill text", VTIDY},    {" Abort",        VABORT},
  889. X    {"nUp             ", VUPLINE},    {"nUp column      ",    VUPCOL},
  890. X    {" Verify screen",   VVERIFY},    {"nWrite buffer   ",    VWPAGE},
  891. X    {" Exit, end edit ", VQUIT},    {"nYank file",        VYANK},
  892. X    {"nDel prev char  ", VDELLAST},    {"nFind again     ",    VSAGAIN},
  893. X    {" Del last",         VREMOVE},    {" Change last    ",    VRMVINS},
  894. X    {" Del to line beg", VKILLPREV},{" Del to line end",    VKILLREST},
  895. X    {" Line begining  ", VBEGLINE},    {" Line end       ",    VENDLINE},
  896. X    {"nWord right",         VMVWORD},    {"nWord left      ",    VMVBWORD},
  897. X    {"nRepeat again   ", VXREPEAT},    {"nk Exec rpt k n times",VEXECRPT},
  898. X    {"n p Set param p ", VSETPARS},    {" Help           ",    VHELP},
  899. X    {" Insert find pat",     VINSPAT},{"nChange case      ",VFOLDCASE},
  900. X    {"/",0}            /* last variable entry */
  901. X      };
  902. X
  903. Xremark("Commands settable by this program:  (n => count allowed):");
  904. X    for (hnum = fields = 0  ; ; ++hnum )
  905. X      {
  906. X    prompt("   ");
  907. X    cp = cmddes[hnum].hmsg;
  908. X    if (*cp == '/')    /* end of variable list */
  909. X        break;
  910. X    else
  911. X        shocout(*cp);    /* show n or blank */
  912. X    msg = ++cp;        /* where message is, skipping 'n' field */
  913. X    while (*cp)        /* ship to lex value */
  914. X        ++cp;
  915. X    i = cmddes[hnum].Vmsg;        /* get the lexical index */
  916. X    shocout(cupper(lexsym[i]));    /* show the command */
  917. X    if (lexsym[i] >= ' ')
  918. X        shocout(' ');    /* skip space for no '^' */
  919. X
  920. X    shocout(' ');        /* space to separate */
  921. X    prompt(msg);        /* and show the message */
  922. X    if (++fields == 3)    /* bump fields, see if need newline */
  923. X      {
  924. X        fields = 0;
  925. X        remark("");
  926. X      }
  927. X      }
  928. X    remark("");
  929. Xremark("Note: <> repeat, @ command file, and ESCAPE cannot be changed.");
  930. X  }
  931. X
  932. X/* =============================>>> SHOCOUT <<<============================= */
  933. X  shocout(c)
  934. X  char c;
  935. X  {
  936. X
  937. X    if (c < ' ')
  938. X      {
  939. X    printf("^%c",c + '@');
  940. X      }
  941. X    else
  942. X    printf("%c",c);
  943. X  }
  944. X
  945. X/* ===============================>>> FUNKEYS <<<========================*/
  946. X  funkeys()
  947. X  {
  948. X
  949. X    SLOW int j,i,val;
  950. X    SLOW int fun;
  951. X
  952. XFAGAIN:
  953. X    cls();
  954. X    remark("You may now define up to 49 function keys to be translated to");
  955. X    remark("commands OR letters.  This translation will take place before");
  956. X    remark("the editor gets the character at any level  -- thus the translation");
  957. X    remark("will apply equally to command mode and insert mode.  The translation");
  958. X    remark("assumes each function key generates a 2 character sequence.  The");
  959. X    remark("first character is an 'escape' character that must be the same for");
  960. X    remark("each key.  If the 'escape' character is really ESC, then you must");
  961. X    remark("also define one function key to have ESC as its translation value.");
  962. X    remark("When asked for the function key, simply press the key, followed by");
  963. X    remark("RETURN.  Enter either the character or decimal value of the translation.");
  964. X
  965. X    for (i = 0 ; i < 50 ; ++i)
  966. X      {
  967. X    funchar[i] = funcmd[i] = 0;
  968. X      }
  969. X
  970. X    BL;
  971. X    prompt("Do you want to define any function keys? (y/n) ");
  972. X    lreply(rp,10);
  973. X    if (*rp == 'n')
  974. X    goto WTFUN;
  975. X
  976. X    BL;
  977. X    remark("Now, please press ANY function key so the program can identify");
  978. X    prompt("the 'function key escape' code (followed by a RETURN): ");
  979. X    reply(rp,10);
  980. X    funesc = *rp;        /* this should be the escape char */
  981. X    if (funesc == 27)
  982. X      {
  983. X    BL;
  984. X    remark("IMPORTANT:  You MUST define a function key to send an ESCAPE (decimal 27).");
  985. X    remark("If you don't, then you won't be able to end insert mode or repeat loops.");
  986. X    remark("The program doesn't have logic to make sure you do this, so don't forget!");
  987. X    BL;
  988. X      }
  989. X
  990. X    for (i = 0 ; i < 50 ; ++i)
  991. X      {
  992. XFUNAGAIN:
  993. X    prompt("Press function key to define (RETURN only to exit): ");
  994. X     rp[1] = 0;
  995. X    reply(rp,10);
  996. X    fun = rp[1];
  997. X    if (rp[1] == 0)
  998. X        break;
  999. X    for (j = 0 ; j < 50 ; ++j)
  1000. X      {
  1001. X        if (fun == funchar[j])
  1002. X          {
  1003. X        remark("That's been used already, try again.");
  1004. X        goto FUNAGAIN;
  1005. X          }
  1006. X      }
  1007. X    funchar[i] = fun;
  1008. X    prompt("Now enter the character/command it gets translated to: ");
  1009. X    reply(rp,10);
  1010. X    val = getval(rp);
  1011. X    funcmd[i] = val;
  1012. X      }
  1013. X
  1014. X    cls();
  1015. Xremark("Functions have been defined. You can start over if you made any mistakes.");
  1016. X    remark("");
  1017. X    prompt("Are they ok? (y/n) ");
  1018. X    lreply(rp,10);
  1019. X    if (*rp == 'n')
  1020. X    goto FAGAIN;
  1021. X
  1022. XWTFUN:
  1023. X    for (i = 0 ; i < 50 ; ++i)
  1024. X      {
  1025. X    fputc(funchar[i],f);
  1026. X      }
  1027. X    for (i = 0 ; i < 50 ; ++i)
  1028. X      {
  1029. X    fputc(funcmd[i],f);
  1030. X      }
  1031. X    fputc(funesc,f);
  1032. X  }
  1033. X  
  1034. X
  1035. X/* ===============================>>> GETVAL <<<========================*/
  1036. X  getval(str)
  1037. X  char *str;
  1038. X  {
  1039. X    /* return one byte value */
  1040. X
  1041. X    if (*str >= '0' && *str <= '9')
  1042. X    return (atoi(str));
  1043. X    else
  1044. X    return (*str & 0377);
  1045. X  }
  1046. X
  1047. X/* ===============================>>> SET <<<========================*/
  1048. X  set()
  1049. X  {
  1050. X    /* set newlex[indx] to a new value */
  1051. X
  1052. X    SLOW int val,i, oldi;
  1053. X
  1054. XSAGAIN:
  1055. Xprompt("Enter current command to change (key or decimal value, RETURN to exit) ");
  1056. X    reply(rp,10);
  1057. X    val = clower(getval(rp));
  1058. X
  1059. X    if (val == 0)
  1060. X      {
  1061. X    return 0;
  1062. X      }
  1063. X    for (oldi = 1 ; oldi <= LEXVALUES ; ++oldi)
  1064. X      {
  1065. X    if (val == lexsym[oldi])
  1066. X      {
  1067. X        goto HAVEIT;
  1068. X      }
  1069. X      }
  1070. X    
  1071. X    return -1;    
  1072. X    
  1073. XHAVEIT:
  1074. X    prompt("Enter NEW command (key or decimal value, RETURN to exit) ");
  1075. X    reply(rp,10);
  1076. X    val = clower(getval(rp));
  1077. X    if (val == 0 || val == '@' || val == 27 || val == '<' || val == '>')
  1078. X    return -1;
  1079. X    for (i = 1 ; i <= LEXVALUES ; ++i)
  1080. X      {
  1081. X    if (val == lexsym[i])
  1082. X      {
  1083. X        return -1;        /* duplicate */
  1084. X      }
  1085. X      }
  1086. X    lexsym[oldi] = val;
  1087. X    return 1;
  1088. X  }
  1089. X
  1090. X/* ===============================>>> SYNO <<<========================*/
  1091. X  syno()
  1092. X  {
  1093. X
  1094. X    SLOW int j, i, valfrom, valto, found;
  1095. X    
  1096. XSAGAIN:
  1097. X    cls();
  1098. X    remark("You may now define up to 19 synonyms.  For example, you might");
  1099. X    remark("want to define a space to be a synonym for right, or RETURN");
  1100. X    remark("the same as down.  You must use unused values, however.  You");
  1101. X    remark("can't use a existing command as a synonym.  You may enter the");
  1102. X    remark("character followed by a RETURN, or the decimal value of the key.");
  1103. X
  1104. X    for (i = 0 ; i < 20 ; ++i)
  1105. X      {
  1106. X    synofr[i] = synoto[i] = 0;
  1107. X      }
  1108. X
  1109. X    for (i = 0 ; i < 19 ; ++i)
  1110. X      {
  1111. XSYNAGAIN:
  1112. X    BL;
  1113. X    prompt("Enter the new synonym (RETURN when done): ");
  1114. X    reply(rp,10);
  1115. X    valfrom = getval(rp);
  1116. X    if (valfrom == 0)
  1117. X        break;
  1118. X    for (j = 1 ; j <= LEXVALUES ; ++j)
  1119. X      {
  1120. X        if (lexsym[j] == valfrom)
  1121. X          {
  1122. X        remark("That is already a command! Try again.");
  1123. X        goto SYNAGAIN;
  1124. X          }
  1125. X      }
  1126. X    prompt("Enter the equivalent command: ");
  1127. X    reply(rp,10);
  1128. X    valto = getval(rp);
  1129. X    for (j = 1, found = FALSE ; j <= LEXVALUES ; ++j)
  1130. X      {
  1131. X        if (lexsym[j] == valto)
  1132. X            found = TRUE;
  1133. X      }
  1134. X    if (!found)
  1135. X      {
  1136. X        remark("That is not a defined command. Try again.");
  1137. X        goto SYNAGAIN;
  1138. X      }
  1139. X
  1140. X    synofr[i] = valfrom;
  1141. X    synoto[i] = valto;
  1142. X      }
  1143. X    cls();
  1144. X
  1145. Xremark("Synonyms have been defined. You can start over if you made any mistakes.");
  1146. X    remark("");
  1147. X    prompt("Are they ok? (y/n) ");
  1148. X    lreply(rp,10);
  1149. X    if (*rp == 'n')
  1150. X    goto SAGAIN;
  1151. X
  1152. X    for (i = 0 ; i < 20 ; ++i)
  1153. X        fputc(synofr[i],f);
  1154. X    for (i = 0 ; i < 20 ; ++i)
  1155. X        fputc(synoto[i],f);
  1156. X
  1157. X  }
  1158. X
  1159. X/* ===============================>>> CLS <<<========================*/
  1160. X  cls()
  1161. X  {
  1162. X    int i;
  1163. X    for (i = 0 ; i < 25 ; ++i)
  1164. X    remark("");
  1165. X  }
  1166. X
  1167. X/* ===============================>>> short_CLS <<<========================*/
  1168. X  short_cls()
  1169. X  {
  1170. X    int i;
  1171. X    for (i = 0 ; i < 10 ; ++i)
  1172. X    remark("");
  1173. X  }
  1174. X
  1175. X#define EXTENDED    /* my own extended lib functions */
  1176. X/* #define STANDARD    /* the set of standard functions i use */
  1177. X#define LOCAL static    /* make all local globals, i think */
  1178. X
  1179. X#ifdef EXTENDED
  1180. X/*=============================>>> CLOWER  <<<================================*/
  1181. X  char clower(ch)
  1182. X  char ch;
  1183. X  {
  1184. X    return ((ch >='A' && ch<='Z') ? ch + ' ' : ch);
  1185. X  }
  1186. X
  1187. X/*=============================>>> CUPPER  <<<================================*/
  1188. X  char cupper(ch)
  1189. X  char ch;
  1190. X  {
  1191. X    return ((ch >= 'a' && ch <= 'z') ? ch - ' ' : ch);
  1192. X  }
  1193. X
  1194. X/* =========================>>> LOWER  <<<==============================*/
  1195. X  lower(str)
  1196. X  char str[];
  1197. X  {
  1198. X    SLOW int i;
  1199. X
  1200. X    for (i=0 ; str[i] ; ++i)
  1201. X    str[i]=clower(str[i]);
  1202. X
  1203. X  }
  1204. X
  1205. X/*=============================>>> PROMPT <<<================================*/
  1206. X  prompt(msg)
  1207. X  char msg[];
  1208. X  {
  1209. X    printf("%s",msg);
  1210. X  }
  1211. X
  1212. X
  1213. X/*=============================>>> REMARK <<<================================*/
  1214. X  remark(msg)
  1215. X  char msg[];
  1216. X  {
  1217. X    printf("%s\n",msg);
  1218. X  }
  1219. X
  1220. X/*=============================>>> UPPER  <<<================================*/
  1221. X  upper(str)
  1222. X  char str[];
  1223. X  {
  1224. X    static int i;
  1225. X
  1226. X    for (i=0 ; str[i] ; ++i)
  1227. X    str[i]=cupper(str[i]);
  1228. X  }
  1229. X
  1230. X
  1231. X/*=============================>>> LREPLY <<<================================*/
  1232. X  lreply(msg,maxc)
  1233. X  char msg[];
  1234. X  int maxc;
  1235. X  {
  1236. X    reply(msg,maxc);
  1237. X    lower(msg);
  1238. X  }
  1239. X
  1240. X/*=============================>>> UREPLY <<<================================*/
  1241. X  ureply(msg,maxc)
  1242. X  char msg[];
  1243. X  int maxc;
  1244. X  {
  1245. X    reply(msg,maxc);
  1246. X    upper(msg);
  1247. X  }
  1248. X
  1249. X/*=============================>>> REPLY <<<================================*/
  1250. X  reply(msg,maxc)
  1251. X  char msg[];
  1252. X  int maxc;
  1253. X  {
  1254. X#ifdef UNIX
  1255. X    gets(msg);
  1256. X#else
  1257. X    mreply(msg,maxc);
  1258. X#endif
  1259. X  }
  1260. X
  1261. X/*=============================>>> RDINT <<<================================*/
  1262. X  rdint(val)
  1263. X  int *val;
  1264. X  {
  1265. X    char chrrep[12];
  1266. X    reply(chrrep,11);
  1267. X    *val = atoi(chrrep);
  1268. X  }
  1269. X#endif
  1270. X#ifndef UNIX
  1271. X/*=============================>>> MREPLY <<<================================*/
  1272. X  mreply(msg,maxc)
  1273. X  char msg[];
  1274. X  int maxc;
  1275. X  {
  1276. X#define CBS 8        /* Backspace */
  1277. X#define CDL1 21        /* ^U */
  1278. X#define CDL2 24        /* ^X */
  1279. X#define CABORT 3    /* ^C */
  1280. X#define CRET 13        /* cr */
  1281. X#define BACKSPACE 8
  1282. X
  1283. X    static char ch, rp;
  1284. X    static int i;
  1285. X
  1286. X
  1287. X    for (i = 0 ; i < maxc ; )    /* i -> next char */
  1288. X      {
  1289. X    ch = ttrd_();     /* read the character */
  1290. X    if (ch == CBS)        /* back space */
  1291. X      {
  1292. X        if (i > 0)        /* must be something to delete */
  1293. X          {
  1294. X        --i;        /* wipe out char */
  1295. X        ttwt_(BACKSPACE); ttwt_(' '); ttwt_(BACKSPACE);
  1296. X        if (msg[i] < ' ')    /* double echo ^ chrs */
  1297. X          {
  1298. X            ttwt_(BACKSPACE); ttwt_(' '); ttwt_(BACKSPACE);
  1299. X          }
  1300. X          }
  1301. X      }
  1302. X#ifdef USE_WIPE
  1303. X    else if (ch == CDL1 || ch == CDL2)    /* wipe whole line */
  1304. X      {
  1305. X        i = 0;        /* set for loop ++ */
  1306. X        remark("#");
  1307. X        prompt("Re-enter? ");
  1308. X      }
  1309. X#endif
  1310. X    else if (ch == CABORT)
  1311. X      {
  1312. X        remark("^C");
  1313. X        prompt("Exit to operating system - are you sure? (y/n) ");
  1314. X        rp = ttrd_();
  1315. X        if (rp == 'y' || rp =='Y')
  1316. X         {
  1317. X        remark("y");
  1318. X        exit(0);
  1319. X         }
  1320. X        remark("n");
  1321. X        msg[i] = 0;
  1322. X        prompt("Re-enter? "); prompt(msg);        /* re-echo */
  1323. X      }
  1324. X    else if (ch == CRET)        /* ret, so done */
  1325. X      {
  1326. X        remark("");
  1327. X        msg[i] = 0;
  1328. X        return;
  1329. X      }
  1330. X    else
  1331. X      {
  1332. X        msg[i++] = ch;
  1333. X        msg[i] = 0;            /* always 0 terminate */
  1334. X        if (ch < ' ')
  1335. X          {
  1336. X        ch += '@';
  1337. X        ttwt_('^');
  1338. X          }
  1339. X        ttwt_(ch);            /* echo char */
  1340. X      }
  1341. X      } /* end for */
  1342. X
  1343. X    remark("");
  1344. X  }
  1345. X
  1346. X/*=============================>>> ttrd_ <<<================================*/
  1347. X  ttrd_()
  1348. X  {
  1349. X#ifdef MSDOS
  1350. X    return (bdos(7,-1) & 0377);
  1351. X#endif
  1352. X#ifdef GEMDOS
  1353. X    return (gemdos(7) & 0377);
  1354. X#endif
  1355. X  }
  1356. X
  1357. X/*=============================>>> ttwt_ <<<================================*/
  1358. X  ttwt_(c)
  1359. X  char c;
  1360. X  {
  1361. X    fprintf(stderr,"%c",c);
  1362. X  }
  1363. X#endif
  1364. X/* -------------------------- tvx_cfg.c --------------------------- */
  1365. SHAR_EOF
  1366. echo Extracting tvx_ptch.c:
  1367. sed 's/^X//' >tvx_ptch.c <<\SHAR_EOF
  1368. X/* -------------------------- tvx_ptch.c --------------------------- */
  1369. X#include "tvx_defs.ic"
  1370. X
  1371. X#define EXTERN
  1372. X#include "tvx_glbl.ic"
  1373. X
  1374. X/*=======================================================================
  1375. X
  1376. X    tvpatch - program to patch tvx with config.tvx file
  1377. X
  1378. X    first version 6/19/84
  1379. X    7/25/84 - fixed to correspond to tvx version, add extra command
  1380. X    2/14/85 - version to correspond with rest
  1381. X    5/15/85 - again, batched to correspond
  1382. X    9/20/85 - fixed for new version of tvx, unix added
  1383. X
  1384. X======================================================================= */
  1385. X 
  1386. X#ifndef UNIX
  1387. X    char filein[] = "A:TVX.EXE";
  1388. X    char fileout[]= "A:TEMP1.$$$";
  1389. X#else
  1390. X    char filein[80] = "tvx";
  1391. X    char fileout[80]= "tvx_temp";
  1392. X#endif
  1393. X    char config[80];
  1394. X
  1395. X
  1396. X/*  define our general control item structure for general patching */
  1397. X
  1398. X#define BL remark("")
  1399. X#define RMK remark
  1400. X#define PR prompt
  1401. X 
  1402. X    char clower(), cupper();
  1403. X    extern char *malloc();
  1404. X    extern FILE *fopen();
  1405. X    FILE *tvxin, *cfgin, *tvxout;
  1406. X
  1407. X/* =============================>>> MAIN   <<<============================= */
  1408. X  main()
  1409. X  {
  1410. X 
  1411. X    char ans[80];
  1412. X
  1413. XTOP:
  1414. X    cls();
  1415. X    RMK("TVX_PTCH - Version 11/12/85");
  1416. X    BL;
  1417. XRMK("  This program is used to permanently alter TVX to match the options");
  1418. XRMK("selected with the TVX_CNFG program.  It will read in the configuration");
  1419. XRMK("file you specify (such as CONFIG.TVX), and patch TVX to reflect those");
  1420. XRMK("values.  Then you won't need to use the '-c' switch when using TVX.");
  1421. X    BL;
  1422. XRMK("*** You may press CONTROL-C at any time to cancel this installation. ***");
  1423. X
  1424. X    do 
  1425. X      {
  1426. X    BL;
  1427. X#ifndef UNIX
  1428. X    PR("On which drive is TVX.EXE located? (A, B, ...): ");
  1429. X    ureply(ans,10);
  1430. X    filein[0] = ans[0];
  1431. X#endif
  1432. X    if ( !(tvxin = fopen(filein,FILEREAD)))
  1433. X      {
  1434. X        PR("TVX not found on specified drive, try again: ");
  1435. X        RMK(filein);
  1436. X#ifdef UNIX
  1437. X        PR("Please enter name of tvx executable file: ");
  1438. X        reply(filein,79);
  1439. X#endif
  1440. X        continue;
  1441. X      }
  1442. X    fclose(tvxin);
  1443. X    break;
  1444. X      }
  1445. X    while (1);
  1446. X
  1447. X#ifndef UNIX
  1448. X    fileout[0] = cupper(ans[0]);
  1449. X#endif
  1450. X 
  1451. X    do 
  1452. X      {
  1453. X    BL;
  1454. X    PR("Enter the name of the configuration file to use: ");
  1455. X    reply(config,79);
  1456. X    if ( !(cfgin = fopen(config,FILEREAD)))
  1457. X      {
  1458. X        RMK("Configuration not found on specified drive, try again.");
  1459. X        continue;
  1460. X      }
  1461. X
  1462. X    rdcfg(lexsym,LEXVALUES+1);
  1463. X    rdcfg(synofr,20);
  1464. X    rdcfg(synoto,20);
  1465. X    rdcfg(funchar,50);
  1466. X    rdcfg(funcmd,50);
  1467. X    rdcfg(&funkey,1);
  1468. X    rdcfg(&autoin,1);
  1469. X    rdcfg(&ddline,1);
  1470. X    rdcfg(&dscrl,1);
  1471. X    rdcfg(&dxcase,1);
  1472. X    rdcfg(&wraplm,1);
  1473. X    rdcfg(&use_wild,1);
  1474. X    rdcfg(&usebak,1);
  1475. X    logdef = usebak;
  1476. X    rdcfg(&cut_mode,1);
  1477. X#ifdef MSDOS
  1478. X    rdcfg(&usecz,1);
  1479. X#endif
  1480. X    fclose(cfgin);
  1481. X    break;
  1482. X      }
  1483. X    while (1);
  1484. X 
  1485. X    BL;
  1486. X    RMK("TVX is being modified to match your choices.");
  1487. X    RMK("This may take several minutes.");
  1488. X    BL;
  1489. X 
  1490. X    fpatch(filein);    /* patch tvx */
  1491. X 
  1492. X    cls();
  1493. X    RMK("Modification completed.  TVX is ready to use without the -c now.");
  1494. X    BL;
  1495. X  }
  1496. X
  1497. X/* =============================>>> RDCFG <<<============================= */
  1498. X  rdcfg(toset,cnt)
  1499. X  char *toset;
  1500. X  int cnt;
  1501. X    {    /* read cnt vals from cfgin */
  1502. X
  1503. X    FAST int i,val;
  1504. X
  1505. X    for (i = 0 ; i < cnt ; ++i)
  1506. X      {
  1507. X    if ((val = fgetc(cfgin)) == EOF)
  1508. X     {
  1509. X        remark("Invalid configuration file, aborting");
  1510. X        fclose(cfgin);
  1511. X        exit(999);
  1512. X     }
  1513. X    *toset++ = val;    /* replace with new commands */
  1514. X      }
  1515. X  }
  1516. X
  1517. X/* =============================>>> FPATCH <<<============================= */
  1518. X  fpatch(fn)
  1519. X  char *fn;
  1520. X  {
  1521. X    static int byt;
  1522. X    static int i;
  1523. X    static int didpatch;
  1524. X    static char *begptr;    /* patch area pointers */
  1525. X 
  1526. X    prompt("Patching "); remark(filein);
  1527. X
  1528. X#ifndef UNIX
  1529. X    fn[0] = fileout[0];        /* set drive */
  1530. X#endif
  1531. X    didpatch = FALSE;
  1532. X    if (!(tvxin = fopen(fn,FILEREAD)))
  1533. X      {
  1534. X    PR("Unable to find file to patch: "); PR(fn);
  1535. X        RMK(".  Aborting to operating system.");
  1536. X    exit(999);
  1537. X      }
  1538. X    if (!(tvxout = fopen(fileout,FILEWRITE)))
  1539. X      {
  1540. X    PR("Unable to create new file, aborting: ");
  1541. X    RMK(fileout);
  1542. X    exit(999);
  1543. X      }
  1544. X 
  1545. X    while ((byt = fgetc(tvxin)) != EOF)
  1546. X      {
  1547. X    fputc(byt,tvxout);
  1548. X    if (byt == '#')            /* look for first sharp */
  1549. X      {
  1550. X        for (i = 1 ; i <= 4 ; ++i)
  1551. X          {
  1552. X        if ((byt = fgetc(tvxin)) == EOF)
  1553. X            goto l900;
  1554. X        fputc(byt,tvxout);    /* echo */
  1555. X        if (byt != '#')
  1556. X            goto l800;
  1557. X          }
  1558. X        byt = fgetc(tvxin);        /* should be : next */
  1559. X        fputc(byt,tvxout);
  1560. X        if (byt != ':')
  1561. X        goto l800;
  1562. X
  1563. X/*   fall thru means found patch area -- code to patch follows */
  1564. X
  1565. X        for (begptr = (char *) &addx ; begptr < (char *) &endpatch ;
  1566. X          ++begptr)
  1567. X          {
  1568. X        if ((byt = fgetc(tvxin)) == EOF) /* read byte from file */
  1569. X            goto l900;
  1570. X        fputc(*begptr,tvxout); /* replace with byte from my area */
  1571. X          }
  1572. X        didpatch = TRUE;
  1573. X      }
  1574. Xl800:    byt = byt;        /* compiler bug */
  1575. X      }
  1576. X
  1577. X
  1578. Xl900:
  1579. X    fclose(tvxin);
  1580. X    fclose(tvxout);
  1581. X    if (!didpatch)
  1582. X      {
  1583. X    RMK("*********  ERROR ********");
  1584. X    RMK("The file just checked was not a proper version of the program!");
  1585. X    RMK("Please check that your are using a valid copy of the");
  1586. X    RMK("program file supplied with this initialization program!");
  1587. X    RMK("Unable to make patch, aborting");
  1588. X    exit(999);
  1589. X      }
  1590. X    unlink(fn);
  1591. X    fn[0] = fileout[0];        /* fix the drive */
  1592. X    if (rename(fileout,fn) != 0)
  1593. X      {
  1594. X    RMK("Unable to rename temporary patch file");
  1595. X    exit(999);
  1596. X      }
  1597. X  }
  1598. X
  1599. X/* =============================>>> OK <<<============================= */
  1600. X  ok(msg)
  1601. X  char *msg;
  1602. X  {
  1603. X    char rp[11];
  1604. X    PR(msg); PR(" (y/n) ");
  1605. X    lreply(rp,10);
  1606. X    return (rp[0] == 'y');
  1607. X  }
  1608. X
  1609. X/* ============================>>> RVALID <<<=========================== */
  1610. X  rvalid(chr,okstr)
  1611. X  char chr,*okstr;
  1612. X  {
  1613. X    /* sees if chr is in okstr */
  1614. X   
  1615. X    SLOW int i;
  1616. X    SLOW char ch;
  1617. X
  1618. X    ch = clower(chr);
  1619. X    while (*okstr)
  1620. X      {
  1621. X    if (ch == clower(*okstr++))
  1622. X        return TRUE;
  1623. X      }
  1624. X    return FALSE;
  1625. X  }
  1626. X  
  1627. X/* =============================>>> CLS  <<<============================= */
  1628. X  cls()
  1629. X  {
  1630. X    int i;
  1631. X 
  1632. X    for (i = 0  ; i < 25 ; ++i)
  1633. X    BL;
  1634. X  }
  1635. X
  1636. X#define EXTENDED    /* my own extended lib functions */
  1637. X/* #define STANDARD    /* the set of standard functions i use */
  1638. X#define LOCAL static    /* make all local globals, i think */
  1639. X
  1640. X
  1641. X#ifdef EXTENDED
  1642. X/*=============================>>> CLOWER  <<<================================*/
  1643. X  char clower(ch)
  1644. X  char ch;
  1645. X  {
  1646. X    return ((ch >='A' && ch<='Z') ? ch + ' ' : ch);
  1647. X  }
  1648. X
  1649. X/*=============================>>> CUPPER  <<<================================*/
  1650. X  char cupper(ch)
  1651. X  char ch;
  1652. X  {
  1653. X    return ((ch >= 'a' && ch <= 'z') ? ch - ' ' : ch);
  1654. X  }
  1655. X
  1656. X/* =========================>>> LOWER  <<<==============================*/
  1657. X  lower(str)
  1658. X  char str[];
  1659. X  {
  1660. X    FAST int i;
  1661. X
  1662. X    for (i=0 ; str[i] ; ++i)
  1663. X    str[i]=clower(str[i]);
  1664. X
  1665. X  }
  1666. X
  1667. X/*=============================>>> PROMPT <<<================================*/
  1668. X  prompt(msg)
  1669. X  char msg[];
  1670. X  {
  1671. X    printf("%s",msg);
  1672. X  }
  1673. X
  1674. X
  1675. X/*=============================>>> REMARK <<<================================*/
  1676. X  remark(msg)
  1677. X  char msg[];
  1678. X  {
  1679. X    printf("%s\n",msg);
  1680. X  }
  1681. X
  1682. X/*=============================>>> UPPER  <<<================================*/
  1683. X  upper(str)
  1684. X  char str[];
  1685. X  {
  1686. X    static int i;
  1687. X
  1688. X    for (i=0 ; str[i] ; ++i)
  1689. X    str[i]=cupper(str[i]);
  1690. X  }
  1691. X
  1692. X
  1693. X/*=============================>>> LREPLY <<<================================*/
  1694. X  lreply(msg,maxc)
  1695. X  char msg[];
  1696. X  int maxc;
  1697. X  {
  1698. X    reply(msg,maxc);
  1699. X    lower(msg);
  1700. X  }
  1701. X
  1702. X/*=============================>>> UREPLY <<<================================*/
  1703. X  ureply(msg,maxc)
  1704. X  char msg[];
  1705. X  int maxc;
  1706. X  {
  1707. X    reply(msg,maxc);
  1708. X    upper(msg);
  1709. X  }
  1710. X
  1711. X/*=============================>>> REPLY <<<================================*/
  1712. X  reply(msg,maxc)
  1713. X  char msg[];
  1714. X  int maxc;
  1715. X  {
  1716. X#ifdef UNIX
  1717. X    gets(msg);
  1718. X#endif
  1719. X#ifdef MSDOS
  1720. X    gets(msg,maxc,stdin);
  1721. X#endif
  1722. X#ifdef GEMDOS
  1723. X    gemdos(0x0a,msg);
  1724. X#endif
  1725. X  }
  1726. X
  1727. X/*=============================>>> RDINT <<<================================*/
  1728. X  rdint(val)
  1729. X  int *val;
  1730. X  {
  1731. X    char chrrep[12];
  1732. X    reply(chrrep,11);
  1733. X    *val = atoi(chrrep);
  1734. X  }
  1735. X#endif
  1736. X/* -------------------------- tvx_ptch.c --------------------------- */
  1737. SHAR_EOF
  1738. echo ALL DONE!
  1739. exit 0
  1740.  
  1741.